home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis411.d64 / .schneewittchen< (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  11KB  |  285 lines
  1. 9 PRINT"[147][144]"CHR$(142):POKE53280,6:POKE53281,15
  2. 10 PRINT"          [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  3. 11 PRINT"          [194]                    [194]"
  4. 12 PRINT"          [194]    WUENSCHEN SIE   [194]"
  5. 13 PRINT"          [194]                    [194]"
  6. 14 PRINT"          [194]    ERKLAERUNG  [1] [194]"
  7. 15 PRINT"          [194][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][194]"
  8. 16 PRINT"[160][160][160][160][160][160][160][160][160][160][194]    SPIEL       [2] [194]"
  9. 17 PRINT"          [194]                    [194]"
  10. 18 PRINT"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  11. 19 FORI=1TO3:PRINT"":PRINTTAB(14)" BITTE WAEHLEN !":NEXT
  12. 20 FORI=1TO3:PRINTTAB(14)"[145] BITTE WAEHLEN":NEXT
  13. 21 GETE$:IFE$=""THEN19
  14. 22 IFE$="1"THEN1100
  15. 23 IFE$="2"THEN4000
  16. 24 GOTO21
  17. 35 GOSUB1000:POKE53272,21
  18. 40 FORX=0TO62:READW:POKE704+X,W:NEXT
  19. 50 FORX=0TO62:READW:POKE832+X,W:NEXT
  20. 60 FORX=0TO62:READW:POKE896+X,W:NEXT
  21. 70 FORX=0TO62:READW:POKE960+X,W:NEXT
  22. 80 POKE53269,255:POKE53271,1:POKE53276,255:POKE53285,8:POKE53286,0
  23. 90 POKE53287,3:FORX=53288TO53294:POKEX,2:NEXT
  24. 100 POKE2040,13:FORX=2041TO2047:POKEX,14:NEXT
  25. 110 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,40,0,0,168,0,0
  26. 120 DATA252,0,0,84,0,0,16,0,2,168,0,10,170,0,4,168,128,48,252
  27. 130 DATA112,50,170,48,53,85,112,53,69,112,0,0,0,0,0,0,0,0,0
  28. 140 DATA3,240,0,3,80,0,3,80,0,15,80,0,15,144,0,14,160
  29. 150 DATA0,14,168,0,14,168,0,2,160,240,2,170,112,2,170,64
  30. 160 DATA10,160,0,10,168,0,10,168,0,10,168,0,10,168,0,10
  31. 170 DATA168,0,3,12,0,3,207,0,0,0,0,0,0,0
  32. 180 DATA0,0,0,0,32,0,0,40,0,0,168,0,4,252,0,8,84,64
  33. 190 DATA8,16,128,10,168,128,0,170,128,0,168,0,0,252,0,2
  34. 200 DATA170,0,2,132,0,0,68,0,0,69,0,1,79,192,15,207
  35. 210 DATA192,15,192,0,0,0,0,0,0,0,0,0,0
  36. 220 DATA0,0,0,0,32,0,0,40,0,0,168,0,0,252,64,4,84,128
  37. 230 DATA8,16,128,8,170,128,10,168,0,0,168,0,0,252,0,2
  38. 240 DATA170,0,0,74,0,0,68,0,1,68,0,15,197,0,15,207,192
  39. 250 DATA0,15,192,0,0,0,0,0,0,0,0,0
  40. 260 FORX=8TO79:READW:POKE14336+X,W:NEXT
  41. 270 POKE56334,0:POKE1,51:FORX=384TO471:POKE14336+X,PEEK(53248+X):NEXT
  42. 280 FORX=152TO159:POKE14336+X,PEEK(53248+X):NEXT
  43. 290 FORX=208TO215:POKE14336+X,PEEK(53248+X):NEXT
  44. 300 FORX=296TO303:POKE14336+X,PEEK(53248+X):NEXT
  45. 310 FORX=256TO263:POKE14336+X,0:NEXT
  46. 320 POKE1,55:POKE56334,1:POKE53272,31
  47. 330 DATA255,183,183,207,255,228,241,255
  48. 340 DATA240,224,240,248,240,224,224,240
  49. 350 DATA15,31,31,15,7,15,15,7
  50. 360 DATA0,112,112,95,114,82,119,87
  51. 370 DATA0,56,56,238,59,40,56,40
  52. 380 DATA119,87,112,80,112,255,137,255
  53. 390 DATA56,40,56,40,56,254,146,254
  54. 400 DATA164,255,146,255,164,255,0,0
  55. 410 DATA74,254,146,254,74,254,0,0
  56. 420 POKE53265,27
  57. 430 PRINT"[147][155]CAAAAABCAABCAAAAAAAABCAAAABCAAAAAAAAAAB";
  58. 440 FORX=1TO16
  59. 450 PRINT"AAAAB   CB  CAB   CAB  CB  CAB  CAB  CAA";
  60. 460 NEXT
  61. 470 PRINT"DE[157][157]FG[157][157]HI"
  62. 480 FORX=1TO7:POKE53249+X*2,54:NEXT
  63. 490 FORX=1TO7:READW:POKE53248+X*2,W:NEXT:POKE53264,192
  64. 500 DATA64,101,141,184,220,5,45
  65. 510 POKE53248,30:POKE53249,200
  66. 520 POKE53278,0:Z=7:TI$="000000"
  67. 530 POKE54296,9:POKE54272,161:POKE53273,8:POKE54277,16:POKE54278,55
  68. 540 POKE54284,90:POKE54285,236
  69. 550 T=PEEK(203)
  70. 560 A=1-A:POKE54276,129:FORI=1TO7:IFZ(I)=0THENPOKE2040+I,14+A
  71. 570 NEXT:B=0:POKE54276,0
  72. 580 IFT=7THENB=-9
  73. 590 IFT=2THENB=8
  74. 600 X=INT(PEEK(53248)+B):IFPEEK(53264)=193THENX=X+256
  75. 610 IFX<22THENX=22
  76. 620 IFX<256THENPOKE53264,192:V=X
  77. 630 IFX>255THENPOKE53264,193:V=X-256:IFV>70THENV=70
  78. 640 POKE53248,V
  79. 650 POKE53279,0:IFPEEK(53279)=1THENWA=1:POKE53280,6
  80. 660 POKE53278,0:IFPEEK(53278)<>0ANDWA=1THENWA=0:POKE53280,11:OK=1:GOSUB980
  81. 670 IFZW=0THENZN=INT(7*RND(1))+1:ZW=1:W=5:OK=0:IFZ(ZN)=1THENZW=0:GOTO550
  82. 680 POKE53249+ZN*2,PEEK(53249+ZN*2)+W
  83. 690 IFPEEK(53249+ZN*2)>200THENW=-5:D=1
  84. 700 IFD=1ANDPEEK(53249+ZN*2)<55THEND=0:ZW=0:IFOK=0THENZ(ZN)=1:GOSUB991
  85. 710 IFZ=0THEN900
  86. 720 P=INT(R-(TI/60)):IFP<1THEN800
  87. 740 GOTO550
  88. 800 FORX=54TO200STEP5:A=1-A:FORZ=1TO7:POKE53249+Z*2,X:POKE2040+Z,14+A:NEXT:NEXT
  89. 810 POKE54283,33:FORJ=1TO8:FORX=1TO10STEP3:POKE54280,23+X
  90. 820 FORZ=1TO7:POKE53249+Z*2,200-X:NEXTZ:NEXTX:NEXTJ:POKE54283,0:POKE53269,0
  91. 830 POKE53272,23:PRINTTAB(10)"[147][157][194]RAVO ! [197]S IST [201]HNEN GELUNGEN,"
  92. 840 PRINTTAB(10)"[211]CHNEEWITTCHEN ZU RETTEN !!"
  93. 850 PRINTTAB(10)"[197]IN NEUES [211]PIEL [[202]/[206]] ?"
  94. 860 GETE$:IFE$=""THEN860
  95. 861 IFE$="J"THENCLR:RESTORE:GOTO9
  96. 862 IFE$="N"THEN6000
  97. 863 GOTO860
  98. 900 POKE53280,0:POKE53281,0:PRINT"[147]":POKE53269,1:POKE53248,235:POKE53249,150
  99. 910 POKE54283,33:FORX=32TO16STEP-.1:POKE54280,X:NEXT:POKE54283,0:POKE53272,23
  100. 920 PRINT" [197]S IST [201]HNEN LEIDER NICHT GELUNGEN,"
  101. 930 PRINT" [211]CHNEEWITTCHEN ZU RETTEN."
  102. 940 PRINT" [202]ETZT KOENNEN WIR NUR NOCH AUF DEN":POKEV+21,0
  103. 950 PRINT" [208]RINZEN HOFFEN..."
  104. 960 PRINT" [214]ERSUCHEN [211]IE ES NOCHMALS [[202]/[206]]?"
  105. 970 GETE$:IFE$=""THEN970
  106. 971 IFE$="J"THENPOKE53269,0:POKE53248,0:  RESTORE:CLR:GOTO9
  107. 972 IFE$="N"THENPOKE53269,0:POKE53248,0:GOTO6000
  108. 973 GOTO970
  109. 980 POKE54276,0:POKE54283,33:FORX=23TO32STEP.2:POKE54280,X:NEXT:POKE54283,0
  110. 990 RETURN
  111. 991 POKE2040+ZN,11:Z=Z-1:R=R+(7-Z)*10
  112. 992 POKE54276,0:POKE54283,33:FORX=32TO16STEP-.3:POKE54280,X:NEXT:POKE54283,0
  113. 993 RETURN
  114. 1000 PRINT"[147][154]":POKE53280,0:POKE53281,0
  115. 1010 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  116. 1020 PRINT"[194]                                     [194]"
  117. 1021 PRINT"[194]   [146][156][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][154]   [194]"
  118. 1022 PRINT"[194]   [146][156][211]       SCHNEEWITTCHEN        [156][211][154]   [194]"
  119. 1023 PRINT"[194]   [146][156][211]                             [211][154]   [194]"
  120. 1024 PRINT"[194]   [146][156][211]             UND             [156][211][154]   [194]"
  121. 1025 PRINT"[194]   [146][156][211]                             [211][154]   [194]"
  122. 1026 PRINT"[194]   [146][156][211]      DIE SIEBEN ZWERGE      [156][211][154]   [194]"
  123. 1027 PRINT"[194]   [146][156][211]                             [156][211][154]   [194]"
  124. 1028 PRINT"[194]   [146][156][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][154]   [194]"
  125. 1029 PRINT"[194]                                     [194]"
  126. 1030 PRINT"[194]   [146][129][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][154]   [194]"
  127. 1031 PRINT"[194]   [146][129][193]                             [193][154]   [194]"
  128. 1032 PRINT"[194]   [146][129][193]             [153]VON             [129][193][154]   [194]"
  129. 1033 PRINT"[194]   [146][129][193]                             [193][154]   [194]"
  130. 1034 PRINT"[194]   [146][129][193]       [153]KARLHEINZ HERPEL      [129][193][154]   [194]"
  131. 1035 PRINT"[194]   [146][129][193]                             [193][154]   [194]"
  132. 1036 PRINT"[194]   [146][129][193]            [153](C)1985          [129][193][154]   [194]"
  133. 1037 PRINT"[194]   [146][129][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][154]   [194]"
  134. 1038 PRINT"[194]                                     [194]"
  135. 1039 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
  136. 1100 PRINT"[147]"CHR$(14):GOSUB3000
  137. 1110 PRINT" [196]IES IST EIN SEHR MODERNES [205]AERCHEN"
  138. 1111 PRINT" VOM [208]RINZEN UND VON [211]CHNEEWITTCHEN."
  139. 1112 PRINT" [197]IN [208]RINZ ERFUHR BEI SEINER [211]ONN-"
  140. 1113 PRINT" TAGSMORGEN-[204]EKTUERE,DASS EIN"
  141. 1114 PRINT" [205]AEDCHEN HINTER DEN 7 [194]ERGEN AN AKUTER"
  142. 1115 PRINT" [204]EBENSMITTELVERGIFTUNG LITT (SIE HAT-"
  143. 1116 PRINT" TE VON IHRER [